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ABSTRACT 


Titswthesis integrates an IBM-PC/AT microcomputer with five pieces 
of standard laboratory test equipment via a GPIB. A menu-driven program 
prompts the user to operate the test equipment from the keyboard on the 
PC. The user can perform a wide variety of tasks with this program and 
the program can be modified to perform other specific tasks desired by 
the user. 

Two subroutines were developed to demonstrate the utility of this 
system and the use of the programming guidelines that were developed. A 
subroutine to collect waveform data from a digital oscilloscope and to 
plot the waveform with a plotter and a subroutine to generate a Bode 


plot of the transfer function for a two port network were developed. 
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I. INTRODUCTION 


This thesis investigated the use of an IBM-PC/AT microcomputer as 
a system controller for a set of programmable test equipment. It is the 
third in a series of theses that address the subject of using programma- 
ble test equipment for simple lab tests. The PC controls the equipment 
via a General Purpose Interface Bus (GPIB). Previous theses written at 
the Naval Postgraduate School (NPS) [Refs. 1 and 2] give detailed infor- 
mation about the GPIB and the test equipment used. 

The HP-85 microcomputer used in the previous theses was replaced by 
the IBM-PC. The HP-85 is programmed to control via its Hewlett Packard 
Instrument Bus (HPIB) in BASIC. This limits the use of the HP-85 to 
programs developed on it in its particular version of BASIC. The pro- 
grams written for the HP-85 are not transportable to different com- 
puters. The use of peripheral equipment such as printers and plotters 
is also restricted, making the HP-85 less flexible and powerful. 

The PC can be programmed in a variety of languages, such as FORTRAN, 
PASCAL, and C to control equipment on a GPIB. The PC can also be used 
with a variety of peripherals to print, plot, store, manipulate, and 
display data. The use of the MS-DOS operating system also gives the PC 
a lot more flexibility as programs developed for the PC can be run on 
many similar computers that use MS-DOS. 

The project undertaken here was to establish control of the various 
pieces of test equipment and operate them using an interactive menu- 


driven program running on the PC. The scope of control was to enable 


the simple electronic engineering laboratory exercises taught at NPS to 
be implemented on the system. The user steps through a series of device 
menus to operate the test equipment and rarely has to adjust controls on 


the test equipment. 


II. HARDWARE 


This study made use of the following test equipment: 


1. TEK PS 5010 Programmable Power Supply 


2. TEK DM 5010 Programmable Digital Multimeter 


3. TEK DC 5009 Programmable Universal Counter/Timer 


4. TEK 5223 Digitizing Oscilloscope 


5. WAVETEK MODEL 270 Programmable Function Generator 
Detailed information about these five pieces of equipment is avail- 
able in Ref. 1 and Ref. 2 as well as the manufacturers’ technical 
documentation for the equipment. 
This equipment was connected to the PC via a National Instruments 
IEEE-488 Instrument Interface. This chapter describes the pertinent 
hardware issues of the computer and the control board as they relate to 


ChiSsw emesis. 


A. IBM-PC/AT MICROCOMPUTER 

In this study a PC was used as the GPIB controller. The large 30 
megabyte capacity of the hard disk is needed to support the storage for 
a full featured programming language compiler. Without it, compiling a 
large program in a high level language degenerates into floppy swapping 
and becomes a real burden during the development of a large application 


program. 


The PC does not have a GPIB connector and the required circuitry as 
standard equipment. It does come with several I/O slots that can accept 
a number of GPIB interfaces made by such companies as Tektronix, Capital 
Equipment Corporation, Hewlett Packard, and National Instruments to name 


a few. 


B. NATIONAL INSTRUMENTS MODEL GPIB-PC2 

A National Instruments Model GPIB-PC2 interface board was used to 
provide the hardware and software interface between the PC and the test 
equipment on the GPIB. Figure 2.1 is a photograph of this circuit 
board. It fits into one of the small slots of the PC and enables the PC 
to communicate with devices on the GPIB. Figure 2.2 is a functional 
block diagram of this circuit board. 

The switches and jumpers on the card are used to configure it to 
work in a particular PC environment. The factory default setting of a 
base I/O address of 2B8, DMA Channel 1, and Interrupt Line (IRQ) for a 
GPIB TLC (Talker/Listener/Controller) of 7. These can be changed as 
needed when other devices already using these settings have been pre- 
viously installed in a PC. The GPIB-PC User Manual contains detailed 
information on how to change these settings. 

This circuit board can support up to sixteen devices on the GPIB and 
work in conjunction with another GPIB-PC2 card installed in the same PC 
to control another sixteen devices. This gives the PC the capacity to 
control up to thirty-two devices without another computer in the system. 


Figure 2.3 is a block diagram of how this system was configured. 


10 


ERS ROE 


. NTE . u 
RAIN sf ay 
a . 


EBS 
i 


co 
~ 
A 


4 
gy 


ty (agg s 


“ 


CL 
ee 


ne, 


. 
PAN 7 


ie Board 


TECU 


PC2 C 


1 Instruments GPIB 


10na 


1 Nati 


Med 


BS DN Sey EE Rate ERE ay “ag oh Pee QIN : peat nA ew ae: Seven WN 
+ SEN : 2 CO ORION Steen ae ae ERE RE Keg POees 
ee ee Sere & 

2S, ie ens Nad : . 


. ¥, . 4 a 
J aR a RRA are ee SESS FARR 
ee, . On es ceretths Nar leete® xs : » 5 ‘ . 
. state? * et’ e ao i) oe Q +} o Q . - ‘ Ne! A 
SH 5 " % ‘ 5 . 4 2) 
! ." 55 


ay 
RAMA 


. 


SAN 5 
SS) 
eS YS 
‘ a 
“ 
S 





igure 2 


6. 








corn f ‘J 


BUFFERING 4nO0 
OATA ROUTING 








wPO7210 
GPs 
ADAPTER 


INTERRUPT i? 
ARBITRATION Bia 
Ouwa 
ARBITRATION 


CONFIGURATION 
SWITCHES AND JUMPERS 
18M PC 1 C CHANNEL 

















TROL 


ADORESS 


















GCPih CONNECTOR 
DATA LINES 


MANAGEMENT LINES 
HANOSHAKE LIMES 





Figure 2.2 GPIB-PC2 Functiondl) Block spi acnan (home. c neue 


LZ 


DIGITAL 
MULTIMETER 





@sSeere 


2 
x 


POWER 
Sere 





PERSONAL COMPUTER 


Figure 2.3 Block Diagram of Developed System 
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IIL. SOFTWARE 


The circuit board provided by National Instrumenee (Nl) comes tenes 
software package that provides the DOS handler, language interface, 
installation package, and system configuration programs. The Following 
programs were provided by NI: 

1 GEIBeeoM 
2 IBS TART Bam 
3. MKCFG.EXE 
4. IBSTA. EXE 
>. LESTE. Exe 
6. IBDIAG.EXE 
io) TEES tebe 
se SUG YG 

Additional files are delivered for each language support option 
requested. To support programs written in Microsoft-FORTRAN 3.2 the 
following files were provided: 

i MELB Ons 

22 DECI. FOR 

3. DFSAMP.FOR 

4. BFSAMP.FOR 

. This chapter describes how these programs work and how software was 


developed to enable the PC to act as a GPIB controller. 
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Pe DOS. HANDEER 

The file called GPIB.COM is loaded when the PC boots up. GPIB.COM 
is required to reside on the default boot drive to enable it to be 
installed during boot up. The term ‘handler’ is used by National In- 
struments to refer to a loadable device driver. DOS uses the DEVICE= 
command in a file called CONFIG.SYS to load the desired device drivers 
when the PC first boots up. GPIB.COM contains the software needed to 


Gee—mace the GPIB-PC2 circuit @beard as a GPIB 1/0 device. 


B. INSTALLATION, CONFIGURATION, AND START-UP 

The file IBSTART.BAT is a DOS BATCH command file that installs the 
software provided by NI. It copies the needed files off the floppy disk 
from NI and puts them on the desired disk. In this study the default 
disk drive is the PC hard disk, C:\, and the NI files were copied to a 
sub-directory, C:\GPIB-PC. GPIB.COM and IBCONF.EXE were then copied to 
the default drive C:\ as these files must reside in the default drive to 
Operate properly. IBSTART.BAT adds the DOS command DEVICE=GPIB.COM to 
CONFIG.SYS by using the file MKCFG.EXE. The file IBDIAG.EXE is used to 
test the hardware before the associated software is installed. 

Omee tne Nardware and handler are installed, the file IBTEST.BAT is 
used to test both the hardware and software for proper installation and 
Operation. This test is done in two parts by running IBSTA.EXE and 
IBSTB.EXE. All the tests are menu-driven and take only a few minutes to 


execute. 


i 


Cc. IBCONF 

The file IBCONF.EXE is very useful even after the system is initial- 
ly installed, as it allows devices to be added and deleted from the GPIB 
very easily. This routine helps to handle Chemie pecurte Sdeca thao. 
setting up such things as GPIB addresses, system mnemonics, and end of 
inSitruc elon ciate Gerace 

IBCONF runs as an interactive menu-driven program that has the user 
specify the device characteristics needed by the handler to properly 
address and communicate with a device on the GPIB. Figure 3.1 shows the 
first menu that is displayed when the program is run. Once a device on 
the bus is selected, the second menu (shown in Figure 3.2) is displayed 
and the user can change the GPIB attributes of device as required. If a 
change is made to a device’s attributes in IBCONF, the PC must be 


rebooted so that the modified handler can be re-installed by DOS. 
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National Instruments Device Map for Board GPIBO IBM PC-AT 


GPIBO 


ge 
DMM 
DC5009 


OSCOPE 


Fl: Help 


* Use cursor control keys to select a device or board 
* Use function keys below to select desired action 
* Use PgUp/PgDn to display maps for other boards 


SIGGEN DEVI DE is 
DEV6 DEVLO DEV14 
DEV? DEVIL1 DEVLS5 
DEV8 DEVi2 DEV16 
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National Jinstrumouces Device Characteristics IBM PC-AT 


Device: PS Access:GPIBO SELECT (use right/left arrow keys): 
Primary GPIB Address ....... 16H OOH comleE 

secondary GPIB Address ..... NONE 

TIMCOUEWSeCEELME. 2 screen eee T10s 

EOS JUDi GCs ats eo 5 eee OOH 

Terminate Read on EOS ...... no 

set EOL with EOS on Write ~eeno 

Type of compare on 20s... 78 7-bit 


set EOI w/last byte of Write yes 


Fl: Help F4: Explain Field Fé: Reset Value F9: Return to Map 


Figure 3.2 Second Menu in IBCONF 


Di wUSE OF Saree 

IBIC is the Interface Bus Interactive Controberwegeame ( 1Beeee ae 
program provides keyboard control of the GPIB and connected equipment. 
IBIC functions include most IEEE-488 commands, the functions supplied 
for specific language interfaces, and some functions specific to IBIC. 

The functions allow the user to send a specific command to a device, 
to receive data (in the form of character strings) from the devices, and 
to display the data received on the PC screen. Data can also be saved 
to a file named in DOS path name convention. This allows a user to 
generate the correct command sequence to perform a specific task. It 
was used extensively in this study as the commands for each device are 
peculiar to that specific device. Practice is required for a uUsere ro 
become familiar with a device’s command structure and IBIC is a good 


practice toor 
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When IBIC is running, messages appear on the screen prompting the 
user to enter commands, data, or request help as needed. The commands 
used most are IBFIND, IBWRT, IBRD. 

IBFIND is used to select a device on the GPIB. For example, to 
select a digital multimeter with the device mnemonic DMM installed via 
IBCONF the user could enter the following at the colon prompt: 


eo ND) Sp ril 


IBWRT is used to send command strings to devices over the GPIB. To 
have the multimeter read resistance the following command might be 
entered at the DMM: prompt: 


DiM: IBWRI “OHMS” 


IBRD is used to read data from a device over the GPIB and display it 
on the screen. The number of bytes to be read are specified when the 
command is used as shown in the following example to read fifty bytes: 


DMM: IBRD 50 


The previous command results in the following display when the 
multimeter is measuring the resistance of an open circuit: 


[2900] ( end rqs cmpl ) 


Comat: 9 

ieee os) 62D 3D” UB9DlCUB OCOD 1.E+99;:% 
OA * 

DMM: 


The first line of the above message is the status word IBSTA that 
describes the status of the GPIB in two forms: a hexadecimal value 
followed by a mnemonics list. The second line contains the actual 


number of bytes received from the device over the GPIB, in this case 9. 


i 


The next two lines contain the received characters and their ASCII 
codes. In this example 1.E+99 represents the infinite impedance of an 
open circuit. The two asterisks represent the two small diamond 
characters that actually appear om the @rspikny hese ep eeceme mene 
carriage return and line feed indicated by the ASCII codes OD and OA in 
the third line of the display. The fourth line is the prompt, DMM:, for 
the next command. 

More specific information and additional examples are contained in 


Reterence J vsect loner 


E. PROGRAMMING LANGUAGE INTERFACE 

MFIB.OBJ is the Microsoft FORTRAN 3.2 language interface that en- 
ables that particular version of a FORTRAN application program to use 
subroutine calls that make use of the handler supplied by NI. Programs 
compiled with MS-FORTRAN 3.2 are linked with MFIB.OBJ to produce an 
executable file. MFIB.OBJ must not be the first file named in the link 
list when linking the application program. 

Similar to IBIC, the most commonly used subroutines and functions 
are IBFIND, IBWRT, and IBRDF. 

IBFIND is a function used to find the address of a device that has 
been installed on the GPIB via IBCONF. The integer returned is assigned 
to a variable that must be used in all references to that device in GPIB 
subroutine and function calls. The following is an example of how to 
use IBFIND in a FORTRAN program to assign the address of the multimeter 
to the integer variable DMM: 


DMM = IBFIND (’DMM ‘) 
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(The software provided by NI requires the last character in a string be 
a blank to indicate the end of a string.) 

IBWRT writes data to a GPIB device. It has three parameters: the 
device address, the data to be sent contained in an integer vector, and 
the number of bytes to be sent. The following is an example to command 


a digital multimeter to read resistance from a FORTRAN program: 


WRT (1) PCHARIEO ) 4 1CHAR(C'H’ )*256 
Wie 2) = TCHAR(’M’) = ICHAR(’S”’)*256 
CALL IBWRT (DMM, WRT,4) 

NI requires character strings to be entered as shown to be compati- 
ble with the handler GPIB.COM. Characters are represented in FORTRAN 
programs run on the PC in memory as two bytes in low order byte then 
high order byte convention. The first two lines above squeeze two 
characters into one sixteen bit word and convert the characters to high 
order byte then low order byte convention. This word is transmitted 
over the GPIB as two sequential eight bit bytes that contain the charac- 
ter codes in the correct order to be used by devices on the GPIB. 

Writing code in this way for every command string is very tedious. 
The subroutine STRING, shown in the following FORTRAN program listing, 
was written to put character strings into the integer array format 
required to be used with IBWRT. An explanation of this subroutine 
follows: 

SUBROUTINE STRING (INPUT, LENGTH, WRT) 
Cxxxx%x THIS CONVERTS CHARACTER STRINGS INTO REQUIRED FORM FOR IBWRT ** 
| CHARACTER*1 INPUT (30) 
INTEGER LENGTH,1I,J,K,WRT(512) 
J= 1 
DO 10 I=1,LENGTH, 2 


= re 
WRT (J)= ICHARCINPUT(I)) + CICHAR( INPUT(K))*256) 


rae 


J= J+ 
10 CONTINUE 
RETURN 
END 
The codes 
SUBROUTINE STRING (INPUT, LENGTH, WRT) 
CHARACTER*1 INPUT(30) 
INTEGER LENGTH,1I,J,K,WRT(512) 
J= 1 
establishes the subroutine STRING with the formal parameters: INPUT, 
LENGTH, and WRT. INPUT is the character string to be modified and 
LENGTH is the number of characters in the STRING. WRT is the integer 
array returned by STRING to be used with IBWRT. I, J, and K are the 
indices of the arrays INPUT and WRT. 
The code: 


DO 10 I=1, LENGTH, 2 


Keel] 
WRT(J)= IGHAR(INPUT(1)) + CICHART INEGI 5c) 
Jai 1 

10 CONTINUE 


takes the elements of INPUT in pairs and performs the operation needed 
to generate the elements of WRT. 

IBRDF reads data to a file. It has two parameters: the device name 
and the filename under which the data is stored. An example of how to 
read a resistance value from the multimeter at address DMM and store it 
in a file called DATA on the A: disk in a FORTRAN program follows: 


CALL IBRDF (DMM,’A:DATA ‘) 


The DECL.FOR is a file of FORTRAN variable declarations recommended 


for use by NI and is included as Appendix A. The three global variables 


ZZ 


IBSTA, IBERR, and IBCNT must be used in all FORTRAN programs to enable 
the GPIB status, any detected bus errors, and the number of bytes trans- 
mitted during a message to be available from the handler. These 
variables are updated after each subroutine call to reflect the status 
of the most recently referenced device and the status of the GPIB. 

IBSTA is the status word returned by all functions. This contains 
information about the GPIB status. It can be used to check for proper 
bus operation and bus status such as I/O complete or a device requests 
service. 

IBERR is the error variable containing the error code when an error 
is detected. The error codes indicate such problems DOS errors, invalid 
arguments to function calls, or file system errors. 

The IBCNT variable is updated after each read or write is executed. 
It contains the number of bytes transferred during the last read or 
write. 

The program listing in Appendix B was generated making use of these 
variables and functions. There are many more functions and variables 
available. A user can also write new functions and specify new vari- 
ables if needed. 

The two files DFSAMP.FOR and BFSAMP.FOR are example programs provide 
by NI that show how to write application programs that make use of the 


subroutines provided in MFIB.OBJ. 
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F. PLOTTING PACKAGE 
The plotting package SlideWrite Plus produced by Advanced Graphics 
Software was used for all waveform and data plots in this study. It is 


one of the many plotting packages available for use with the PC. 
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—V. DEVELOPMENT OF THE SYSTEM CONTROLLER 


The goal of this study was to develop a system for use in student 
laboratory environment as a teaching aid. Students at NPS could run 
programs on a computer connected to various pieces of lab test equip- 
ment. The student would perform circuit tests and demonstrations of 
class room theory through menus displayed on the computer monitor. 
Students would set up and control instruments by typing in responses on 
the computer keyboard. Previously written and stored programs could put 
waveforms on the monitor or the digitized oscilloscope, check data 
values at test points for correct values, and record and store data 
automatically for later use. Off-the-shelf software would be used for 
analyzing and plotting the recorded data. 

With these goals in mind a set of design guidelines were developed. 
This chapter describes these guidelines and details the software that 


was developed. 


A. “DESIGN GUIDELINES 

Design of this system was undertaken as a top-down, structured 
programming implementation. A top-down structure was chosen early in 
the study. This enabled a gradual system development starting with the 
most essential program features first and then progressing to more 
complicated functions. To this end, step-wise refinement was used 
extensively. 

The concept of modular programming was followed. All new functions 


were added as subroutines that would not affect the code previously 


Z5 


written and tested. These new functions were kept simple so as to be 
short. This limited the size of a program module that had to be writ- 
ten, tested, and debugged to a manageable size. 

All control of the test equipment was to be via the computer key- 
board. The student would not have to adjust the equipment by hand. 
Menus on the computer monitor would give instructions to the student as 


required. 


B. EARLY EFFORTS WITH BASICA 

National Instruments provides a handler package to be used with 
BASICA. (BASICA is an enhanced BASIC written for the IBM/PC by Micro- 
soft.) Early in this study, this handler was used with some simple test 
programs written in BASICA. These programs were found to be very slow 
during run time since BASICA is an interpretative language. In addition 
these BASICA programs were not transportable to all IBM/PC compatible 
computers. Due to these limitations another programming language was 


selected. 


C. SELECTION OF FORTRAN 77 

A language having separate compilation was desired to facilitate the 
modular programming style desired. It was anticipated that the analysis 
on data collected by the system could be handled most advantageously by 
using the some of the many subroutines already developed and available 
in FORTRAN libraries. A FORTRAN 77 subset compiler suitable for use on 
an IBM/PC was available in the lab for use and was selected as the 


system development language. This was Microsoft-FORTRAN 3.2. 
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Dee lHE DEVELOPED PROGRAM - GPIBX 

The final program developed, GPIBX, is included as Appendix B. Once 
compiled as an executable file it requires around 100K bytes of RAM. 
Execution of most commands appears to be immediate to the user. The 
demonstration subroutines entail some delay due to the number of opera- 
tions being performed sequentially and the disk I/O for storage being 
performed. 

The program presents the user with a series of menus that enable the 
user to remotely operate most of the front panel controls available on 
the different pieces of test equipment. After a piece of equipment is 
selected, a new menu specific to that piece of equipment is presented. 
The user can then select a particular operation to perform or setting to 
adjust. Specific values for voltages or frequencies can be entered via 
the PC keyboard. Numbers can be entered in scientific notation to save 
eile | 

The program only accepts certain responses depending on the menu 
selections available. It prompts the user to try again when invalid 
responses are entered. Settings outside the range of the equipment are 
ignored. 

Control of the different pieces of equipment is accomplished one 
level at a time. First, the device is selected from a main menu. Then 
the user selects a particular feature of the device to adjust or oper- 
ate. The menus presented to the user proceed in one level of control 
each time. The user can back-up one level of control at any time. To 
switch devices a user must back out to the main menu level and then 


select another device. This prevents a user from jumping around the 


a, 


menus and inadvertently adjusting the wrong piece of equipment. A 
single point of return for each subroutine enforces this run time 


operation. 


E. PROGRAMMING PROBLEMS ENCOUNTERED 

MS-FORTRAN 3.2 was not the best language to use for development of 
this system. The bulk of the programming required character string 
manipulations. A full featured ANSI FORTRAN 77 compiler may have been 
satisfactory but MS-FORTRAN 3.2 is a subset and does not have some of 
the FORTRAN 77 character string handling features that were needed. 

The first programming problem found was the lack of substring sup- 
port. Device commands are typically a string of characters specifying 
an operation and a data value to use. Building these strings could be 
handled in FORTRAN 77 by concatenating substrings. Since neither sub- 
strings nor string concatenation is available in MS-FORTRAN 3.2, blocks 
of code had to be written for each operation similar to the following 
listing of a subroutine in GPIBX. An explanation follows: 

SUBROUTINE FREQ 
Cxxxee THIS MAKES THE SIGGEN OUTPUT A SPECIFIED FREQUENCY ***+%* 


INTEGER DVM) Ty WRICaLZ) 
CHARACTER*1 FREQ(13) , INPUT(11) 


C 
FREQ(1)= 'F! 
FREQ(13)= ‘I’ 
C 
DVM= IBFIND (’SIGGEN ') 
WRITE (*,10) 
10 FORMAT('0’ ,9X,'ENTER DESIRED FREQUENCY AS XX.XEX (.01Hz-12MHz)’) 
E 
: READ (*,20) INPUT 
20 FORMAT (11A1) 
E 
DO 30 I= 1,11 
FREQ(I+1)= INPUT(I) 


30 CONTINUE 
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CALL STRING (FREQ,13,WRT) 

Getic IBWRIT (DVM, WRT, 13) 

RETURN 

END 

The code: 

SUBROUDINE FREQ 

DGECERS DVM, I, WRI(S12) 

CHARACTER*1 FREQ(13) ,INPUT(11) 
establishes the subroutine FREQ and declares the variables used in the 
subroutine. DVM (DeVice Mnemonic) is a variable used to contain the 
integer representation of a device address on the GPIB. I is a variable 
used for the index of the arrays declared. WRT is the integer array 
containing the command string to be sent over the GPIB by the subroutine 
IBWRT. It has 512 as its upper dimension limit to enable it to accept 
as large a string as needed. 


The code: 


FREQ(1l)= 'F’ 
FREQ(13)= ‘I! 


puts a ‘'F’ in the first element of FREQ and an ‘I’ in the last element 
of FREQ. The WAVETEK MODEL 270 Programmable Function Generator has a 
command string format for selecting frequencies that require the first 
character to be a 'F’ followed by characters that specify the desired 
frequency, such as ‘100000’ or ‘1E5’ for 100 KHz. If the last character 


in the string is an ‘I’ then the command is executed immediately. 


The code: 
DVM= IBFIND(’SIGGEN ') 
uses the function IBFIND to place the integer representation of the 


address of the device SIGGEN (signal generator) in the variable DVM. 


Zo 


The code: 


WRITE (*,10) 


10 FORMAT('0',9X,'ENTER DESIRED FREQUENCY AS XX.XEX (.01Hz-12MHz)') 
READ (*,20) INPUT 
20 FORMAT (11A1) 


generates an on-screen menu that requests the user to enter a frequency 
via the keyboard. 

The code: 

Den30 =a it 
FREQ(I+1)= INPUT(TI) 
30 CONTINUE 
builds command strings using previously stored characters and those 
entered by the user. 

The code: 

CALL STRING @(EREQ 137 WR?) 

CALL IBWRT (DVM,WRT,13) 

RETURN 

END 
uses the subroutine STRING to put the command string FREQ in the form 
required for use with the subroutine IBWRT. IBWRT sends the integer 
array WRT that represents the command string in FREQ to the device 
identified by the variable DVM. The 13 is the number of bytes to be 
transferred and is required for both STRING and IBWRT. 

The subroutine IBWRT has three parameters. It requires the GPIB 
address of where the message is going, the integer vector to be passed, 
and the number of characters represented in the integer vector being 
passed. MS-FORTRAN 3.2 does not have an intrinsic function to return 
the length of a string. The programmer must keep track of the length of 


strings being passed. In some cases the length of a string depends on 


run-time input from the user. To cover all the possible cases the 


30 


character string variables used to input command strings are larger than 
always needed. This adversely affects both memory requirements and run- 
time efficiencies. 

The most difficult problem encountered was reading data returned 
from a device. The subroutine IBRDF reads data from a device into a 
file. If the file did not previously exist, a new one is created. Once 
the data has been copied into the file, IBRDF closes the file. 

The book, Structured FORTRAN 77 For Engineers And Scientists (Ref. 
4), was heavily relied on as a FORTRAN 77 reference. It does not list 
binary files as one of the file types supported. After many unsuc- 
cessful attempts of reading the data from one of these files a call was 
made to the Microsoft Users Hotline. A Microsoft representative recom- 
mended opening the file as a BINARY type of file explaining that MS- 
FORTRAN 3.2 does support binary files. The following is an example of 
FORTRAN code that was used to successfully open files for use in the 
system controller program: 


OPEN (1,FILE=’A:DATA’ ,STATUS='OLD’ , FORM=’ BINARY’ ) 


These BINARY files contained numeric data that could not be read 
with formatted read statements. Characters have to be read out one at a 
time into arrays before the data is available for numeric processing. 
Some data files can have over 5,000 characters and take a lot of time to 
be read into arrays. 

The data format used by specific devices can cause problems as well. 
The waveform data from the TEK 5223 Oscilloscope comes over the GPIB as 


a string of numbers separated by commas. The numbers are one, two, or 


oul 


three digits long and can have a minus sign in front. It is not possi- 
ble to read this string of characters with a formatted read statement to 


pull out the separate data values. A great deal of code was written 


just to get this data in a usable form. 
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V. DEMONSTRATION SUBROUTINES 


Once the basic objectives of this study were met, further work was 
done to investigate the issues involved with developing software modules 
to perform a sequence of the basic operations already developed. To 
this end a subroutine to generate a BODE plot of a two port network and 
a subroutine to plot the waveforms shown on the digitizing oscilloscope 
were written. This chapter discusses these two subroutines and high- 


lights some of the problems encountered. 


ae BODE PLOT “SUBROUTINE 
The BODE plot subroutine is selected in the SIGNAL GENERATOR MENU. 
This subroutine generates and records the data necessary to make a plot 
of input frequency vs. gain magnitude for a two port network. The user 
can select the starting and stopping frequencies to be swept while data 
is being recorded. The user also selects the number of points to be 
taken, up to 400. More points could be taken but the plotting software, 
SlideWrite Plus, can plot a maximum of only 400 total data points on a 
graph. This corresponds to one line of 400 points or two lines of 200, 
eEer 
The rms voltage of the output and the corresponding input frequency 
are recorded for each frequency generated. Figure 5.1 is block diagram 
of how the system is configured to conduct this test. The magnitude of 
the transfer gain is calculated as pOeOg (Vee) V+. ee) and recorded in 
a file with the corresponding input frequency. This data is then plot- 


ted with the SlideWrite Plus plotting package. The circuit shown in 


oe 


Figure 5.2 was examined with this subroutine and the corresponding Bode 


Plot is shown in Figure 5.3. The input signal is assumed constant over 


all frequencies of the sweep. 
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Figure 5,1 Block Diagram cf Bodewpiecerect 


The Bode Plot shown in Figure 5.3 appears to represent the response 
of a Low-Pass Filter. The circuit is made up of passive elements so the 


gain is always zero DB or less. The circuit gain decreases as the inpm@e 


frequency increases. There appears to be a resonant frequency up at 


around 1 MHz. This is probably due to some stray reactances present in 


the circuit components that have little effect at the lower frequencies. 
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Fitp@ies>.3 Bode Plot of the Low-Pass Filter Circuit 
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Caution must be used when using this Bode Plot subroutine as some 
circuits tested were observed to load the signal generator at various 
frequencies and cause the input voltage to fall off. The change in 
input voltage may be very slight and not visible on the oscilloscope. 
The input voltage should always be checked with a voltmeter to be sure 
it remains constant. This problem could be ‘corrected by using @2 a 
voltmeters connected to the GPIB or by using a multiplexer to enable one 


voltmeter to take two different readings at the same frequency. 


B. WAVEFORM RECORDER SUBROUTINE 

The waveform recording routine is selected in the OSCILLOSCOPE MENU. 
The oscilloscope samples the input signal on either input channel and 
digitizes the amplitude. The number of sample data points generated 
depends on the sweep rate selected and the number of channels being 
displayed. For one dual trace amplifier in use and a sweep rate of not 
less than .1 msec/div, 512 points are taken representing a period of 
time equal to ten time divisions (one full oscilloscope screen). For 
sweep rates less than .1 msec/div, 1024 points are taken. The increase 
in the number of points is to avoid aliasing by under-sampling. 

The plotting software, SlideWrite Plus, can plot a maximum of 400 
points. The waveform recording subroutine selects 400 out of 512 or 341 
out of 1024 points for plotting. The 400 out of 512 are selected by 
taking the first four of every five points up to 500 points and ignoring 
the last twelve points. The 341 points are selected by taking the first 


of every three data points up to 1024 points. Either number of points 
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do a fine job of representing a five inch wide oscilloscope trace with a 
few cycles of a waveform displayed. 

No scaling information is available from the oscilloscope via the 
GPIB. The user must enter the volts/div and time/div to allow the 
subroutine to properly scale the data. The numbers from the oscilloscope 
represent only the voltage amplitude information. Each vertical scale 
division is 100 units, so a value of 250 represents 2.5 divisions above 
the y-axis and a value of -320 represents 3.2 division below the y-axis. 
The waveform recorder subroutine uses the volts/div to scale the numbers 
transferred from the oscilloscope into volts. 

This subroutine also calculates the time scaling information by 
using the time/div entered by the user and the user’s response to ques- 
tions about how many waveforms are being displayed. Both pieces of 
information dictate how many data points are sampled by the oscilloscope 
ditanme one display trace. 

More expensive oscilloscopes have the scaling information available 
over the GPIB. 

Figure 5.4 shows a plot of a 1 KHz sine wave output by the WAVETEK 
MODEL 270 into Channel 1 of the TEK Oscilloscope. The signal has a peak 
amplitude of five volts. The volt/div is set on five volts/div and the 
time/div is set on .2 msec/div. This waveform is represented by 512 
points sent from the oscilloscope and has been plotted with 400 points. 
The plot is a very smooth sine wave. 

Figure 5.5 is a plot of the waveform shown on the oscilloscope when 
a 1 MHz square wave is output from the signal generator into Channel l 


of the oscilloscope. The volts/div is set on two volts/div and the 


a0 


time/div is set on 0.5 microseconds/div. The plot is a very accurate 
representation of the waveform shown on the oscilloscope. The slight 


distortion of this high frequency signal is clearly visible in Chemo 
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Figure 5.4 Plot of 1 KHz Sine Wave Shown on O’Scope 
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Figure 5.5 Plot of 1 MHz Square Wave Shown on O’Scope 
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VI. PROGRAMMING GUIDELINES 





While developing this system certain steps of the development were 
repeated. A set of steps evolved to be performed every time a new 
function was implemented in software. This chapter outlines these steps 


and details items to watch for when developing modules to use in the 


system. 


A “OUTLINE, THEe tas 

The task to be performed was outlined on paper. This included 
drawing a schematic diagram clearly showing test points. Each test point 
was labeled to indicate the test equipment connections. The connections 
of the test equipment to be used, such as Channel A, Ground, High, and 
Guard were indicated. Labels for these points were assigned variable 
names in the system development language. These four connection points 
were labeled in FORTRAN 77 as CHANA, GRND, HIGH, and GUARD. 

Sketching a block diagram of the process to be performed is very 
helpful. This can be done using standard flow charting techniques. A 
block diagram of the process helps to show how control in the program 


flows and where data flows during execution. 


B. MODEL, TASK WITH IBIC 
The program IBIC was run to develop the command strings necessary to 
perform the task outlined. These command strings are unique for each 


plece of equipment and are detailed in each equipment’s technical 
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reference manual. Using IBIC allows for interactively entering command 


strings, executing them, and observing the results. 


C. GENERATE CODE 

Once the necessary command strings have been generated, program code 
in the programming language of choice can be written. This study used 
Microsoft FORTRAN 3.2, a subset of ANSI FORTRAN 77. Many of the issues 
discussed apply to other languages as well. 

Globally scoped variables were avoided. The handler from NI uses 
three global variables: IBSTA (status word), IBERR (GPIB error code), 
and IBCNT (the number of bytes sent). These should be the only globally 
scoped variables used. Using only locally scoped variables avoids the 
problems of side-effects and indiscriminate access that global variables 
are subject to. This speeds program development time, improves program 
readability, and facilitates software maintenance. 

Program modules were developed separately from the existing system 
program. This kept the amount of text to review with the editor being 
used to a minimum. For this study Wordstar was used as the text editor 
and allowed the user to view twenty-five lines of programming code in 
one screen. The program modules under development were written as 
subroutines. This ensured the proper identification of formal parame- 
ters required to be passed back and forth when the module was integrated 
into the existing system program. 

Previously developed subroutines were used when applicable. The 
editor can then copy blocks of text into files. The MS-FORTRAN Metacom- 


mand $INCLUDE can be used to include other files for compilation with 
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the one under development. This helps to keep the size of the file 
being edited to a minimum. 

Once the module is written and compiled, it should be tested exten- 
sively. By using the windowing environment of DESQview the system 
program GPIBX, IBIC, and the developed module were run in parallel. 
This facilitated testing the module as it allows observing the real time 
interaction of the module with the system program without actually 
changing the system program. The two programs are still separate and 


cannot change the operation of either’s code. 


D. INTEGRATE NEW CODE INTO GPIBX 

When the new module performs correctly, it can be implemented in the 
system program, GPIBX.FOR. The editor moves the necessary block of code 
from the developed module file into the GPIBX.FOR file. The necessary 
modifications were made such as the text of menus, additional function 
options, the addition of subroutine calls and returns, and the addition 
of comment lines to document the new subroutines. 

All subroutines developed in this study have a single point of 
return. This gives up some flexibility in programming but helps program 
readability. This is why menu selection proceeds in one level at a time 


and out one level at a time. 
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VII. CONCLUSIONS AND RECOMMENDATIONS 


This thesis took a close look at the GPIB interface circuitry and 
software made by National Instruments to enable an IBM-PC to be a GPIB 
system controller. Software was developed to implement interactive 
control of the test equipment from the computer keyboard. A subroutine 
to enable waveform data acquisition from the TEK 5223 Digitizing Oscil- 
loscope and to plot the data using software provided by Advanced Graph- 
ics Software Inc. on a HP/40A plotter was developed. Another subroutine 


to generate a Bode Plot for a two-port system was developed. 


A. CONCLUSIONS 

The basic electronic laboratory equipment used at NPS are manual 
versions of the test equipment used in this study. This study has shown 
how an interactive program could be developed to allow automation of 
several of the processes involved in executing basic laboratory exer- 
cises such as data acquisition, waveform plotting, and Bode Plots. The 
results obtained point out several concluding points: 


1. Selection of a system development language is key. MS-FORTRAN 3.2 
doesn’t support enough of the FORTRAN 77 extensions to make de- 
velopment as straight-forward as possible. The bulk of pro- 
gramming involves string manipulations. A language such as C is 
probably better suited to this application. 


2. Selection of an IBM-PC based computer enabled use of several 
different software packages for the IBM-PC and its compatibles. 
Editing the software was performed with WORDSTAR by MICROPRO. 
Operating the computer as a development system was done with 
DESQVIEW by QUARTERDECK. Plotting of data was done with 
SLIDEWRITE PLUS by ADVANCED GRAPHICS SOFTWARE. Using a widely 
supported computer such as the PC makes an extensive amount of 
software available giving any system development undertaken a lot 
SEMUOO lS EO use. 
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Use of a window based operating system such as Desqview allowed 
for several different IBIC sessions to be run at what appears to 
be the same time to the user; they actually run one at a time. 
This allowed for quick investigation of the necessary command 
strings to have a specific task performed by a particular piece of 
test equipment. Several pieces of equipment can be operated at 
the same time this way. The developed program, GPIBX, can also be 
run and the interaction of the GPIBX and the test equipment can be 
ODSeErVed. A windows environment greatly speeds system 
development. 


Great care must be used when selecting software packages to be 
used with the system. A plotting/graphics package written by 
Enertronics was first tried to handle the plotting requirements. 
This software was not able to generate logarithmic plots as adver- 
tised. It also did not plot as many data points per line as 
stated in the manual. These deficiencies led to the use of 
SlideWrite Plus for plotting. 


Similar caution must be used when selecting GPIB devices as well. 
The TEK oscilloscope sends back graphic data as a string of ASCII 
characters. It requires a lot of program code to put these char- 
acters in a form usable in FORTRAN to express numeric data. 


Developing a program that is menu driven and allows the user to 
specify a series of operations, tests , and measurements for the 
GPIB controller to perform is beyond the scope of what a student 
can do as a thesis assignment. Such a system is technically 
feasible. NI recently began marketing just such a 
software/hardware package called Labview. It is written for an 
Apple Macintosh computer and may not have the I/0 flexibility 
needed to make use of the different peripherals required for a 
specific development. 


The GPIB connector is made to allow stacking several connectors at 
the same connection point. As a result, the cable feeds in at a 
right angle to the connector. On the IBM-PC the arrangement of the 
connector in the back of the computer is such that the cable binds 
up against the computer housing. A GPIB socket extender would 
eliminate this annoying problem. 


RECOMMENDATIONS 


Further thesis work should be done evaluating some of the new soft- 


ware packages available at this time or this system could be developed 


into a fully interactive lab teaching aid for the elementary labs taught 


at NPS. As work progressed more sophisticated labs could be automated. 
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The development language should be changed to one having good char- 
acter string handling primitives. Selection of a language should be 
based on an evaluation of the documentation available, portability of 
compiled programs to run on different but compatible computers, run time 
speed of compiled programs, and the programming experience of the 
programmer. 

The local operation of devices on the GPIB should always be avail- 
able to allow students the opportunity to investigate their circuits 
outside the control of the computer program. Too much automation would 
be detrimental to a student’s understanding of how an instrument works 
and what its capabilities and limits are. Observation of the operation 
of test equipment provides a lot of real world experience in applying 
concepts developed in different classes. 

A proposed student work station that could be used in an automated 
lab environment is shown in Figure 7.1. The block diagram shown in 
Figure 7.2 shows how these work stations could be connected to a single 
computer, printer, and plotter. The cost of personal computers used for 
this application may be low enough to have a dedicated personal computer 
for each work station. Having a computer at each work station would 
prevent a single computer failure from stopping the work of all 


students. 
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Figure 7.1 Proposed Student Work Station 


46 


STUDENT S TUBER TOBE Nal Sei 
WORK WORK WORK WORK 


STATION STATION STATION STATION 





a ————e 
aE == 
(i sae 
Sua oe eee 
we SLOntee 
Santer TIME SHARE 
COMPUTER 


Figure 7.2 Proposed Time Share System 
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APPENDIX A 
DECL. FORM Eis 1 tN 


This is a listing of the Fortran variable declarations recommended 


for use and provided by National Instruments. This listing was provided 
by National Instruments with the exception of the list of variables 
appearing as all capital letters. 


es 


Microsoft FORTRAN Declarations 


Sstorage:2 


You must include the following common declarations 


c 
€ in) your (prec ran 
eG 
c status variables declared common by the language interface 
c ibsta - status word 
c iberr - GPIB error code 
c ibcnt - number of bytes sent 
common /ibglob/ ibsta, iberr, ibent 
c Optionally include the following declarations in your 
c program. 
Sc 
c GPIB Commands and meanings 
e UNL - GPIB unlisten command 
ea UNT - GPIB untalk command 
e GTL - GPIB go to local 
Cc SDC - GPIB selected dev clear 
eS PPG -—GPIS ppoll contrive 
Cc Gil = GPIB 2roup excevececri2 i 
Cc TCT - GPIB take control 
e LLO’ = GPIB focal lockteue 
Cc DCL - GPIB device clear 
e PPU - GPIB ppoll uncon£ii@mrce 
c SPE - GPIB serial poll enable 
c SPD - GPIB serial poll disable 
ec PPE - GPIB ppoll enable 
e PPD - GPIB ppoll disable 
integer UNL, UNIT; GIL) (SOG) Preece. las 
integer LLO, DCL, PPU, SPE SPD = eee. BED 
c GPIB status bit vector 
S global variable ibsta and wait mask 
e ERR (hex 6000) - Erromedeteceed 
c TIMO (hex 4000) - Timeout 
(es END (hex 2000) - EOI or eos detected 
e SRQI (hex 1000) - SRQ detected by CIC 
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Q 0 °0°0° CO 4G C1o eG 


on Cen © eae © ae © lan © ld © la © Ran © Ean © a © ll © ad @ EE © aE ©) 


O70 OF: -O qa 4 (3 


RQS (hex 800) - 
CMPL (hex 100) - 


Device needs service 
I/O completed 


LOK (hex 80) - Local lockout state 

REM (hex 40) - Remote state 

CIC (hex 20) - Controller-in-charge 

ATN (hex 10) - Attention asserted 

TAGS (hex 8) - Talker active 

LACS (hex 4) - Listener active 

DTAS (hex 2) - Device trigger state 

DCAS (hex 1) - Device clear state 
matceger BRR, TIMO, ENDe SRQI, ROS, CMPL, LOK 
integer REM, CIC, ATN, TACS, LACS, DTAS, DCAS 


Error messages returned in common variable iberr 
EDVR = O DOS error 
EGBG = 7 Function requires board to be CIC 
ENOL = 2 Write function detected no Listeners 
EADR = 3 Interface board not addressed correctly 
EARG = 4 Invalid argument to function call 
ESAC = 5 Function requires board to be SAC 
EABO = 6 I/0 operation aborted 
ENEB = 7 Non-existent interface board 
EOIP = 10 I/O operation started before previous operation completed 
ECAP = 11 No capability for operation 
BroOe= UZ File system operation error 
EBUS = 14 Command error during device call 
ESTB = 15 Serial Poll status byte lost 
ESRQ = 16 SRQ remains asserted 
integer EDVR,ECIC, ENOL, EADR, EARG, ESAC, EABO 
imeepemuENED, EOLP, ECAP BhsO, EBUS to. 5, ESRQ 
EOS mode bits 
BIN (hex 1000) - Eight bit compare 
XEOS (hex 800) - Send EOI with eos byte 
REOS (hex 400) - Terminate read on eos 
integer BIN, Xi£0S, REOS 
Timeout values and meanings 
TNONE = O [Infinite timeout (disabled) 
Tl0Ous = |] Timeout of 10 us (ideal) 
T30us = 2 Timeout of 30 us (ideal) 
T100us = 3 Timeout of 100 us (ideal) 
T300us = 4 Timeout of 300 us (ideal) 
Tims = 5 [Timeout of 1 ms (ideal) 
T3ms = 6 Timeout of 3 ms (ideal) 
Tl1O0ms = 7 Timeout of 10 ms (ideal) 
T30ms = 8 Timeout of 30 ms (ideal) 
T100ms = 9 Timeout of 100 ms (ideal) 
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T300ms = 10 Timeout of 300 ms (ideal) 
Tie 11 Timeout of 1 s (ideal) 
ESS 12 Timeout of 3 s (ideal) 
T1Os 13 Timeout of 10 s (ideal) 
T30s 14 Timeout of 30 s (ideal) 
THOS 15 Timeout of 100 s Gidea 
T300s = 16 Timeout of 300 s (ideal) 
T1L000s = 17 Timeout of 1000 s (maximum) 
integer TNONE,T1lOus,T30us ,T100us , T300us 
integer Tlms,T3ms,T10ms,T30ms ,T100ms 
integer T300ms,Tls,T3s,T10s,T30s 
integer T100s,T300s,T1000s 


to wooly 


026.070.0070) 


Miscellaneous 
S - specifies sense of PPR 
c LF - ASCII line feed characee: 


(See @) 


integer ms > Jb 


c Variables passed in to GPIB function examples 
@ cmd - command buffer 
Cc rd - read data buffer 
e wie G - write data buffer 
c bname - board name buffer 
C bdname - board or device name buffer 
Cc finame - file name buffer 
€ bd - board or device number 
o: dvm - device number 
e Vv - "value" parameter 
c ene - byte count for transfers 
© mask - events to be waited for 
e spr - serial poll response byte 
e ppr - parallel poll response byte 
integer emd (10) eecdiGS 1b2 a swe tee a) 
character*8 bname,bdname 
character*50 flname 
integer bd,dvm,v,cnt,mask 
integer SPrjppr 
Cxxxke* THESE DECLARATIONS ARE NEEDED TO RUN GPIBX *xx*xx*% 
G ---SOME DECLARATIONS... 
G SELECTION: OPTION SELECTED Bae USER 
G ERROR2ZSELECTION: ERROR MESSAGE FOR INCORRECT SELECTION BY USER 
G PS: POWER SUPPLY SUBROUTINE 
Gey DMM: DIGITAL MULTIMETER SUBROUTINE 
C COUNTER: COUNTER/TIMER SUBROUTINE 
G SIGGEN: SIGNAL GENERATOR SUBROUTINE 
G OSCOPE: OCGILISCORE SSUBROULINE 
C 


CHARACTER*1 SELECTION 


5Q 


yc. 


CHARACTER*50 ERROR2SELECTION 
BRRORZSELECTION = ’ERROR...INVALID SELECTION, TRY AGAIN.’ 


GPIB Commands: values 
Gear UND/637 , UNIT /95/7 ,GIL/01/,SDG/04/,PPC/05/ 


data GET/08/,TCT/09/, LLO/17/,DCL/20/, PPU/21/ 
data SPE/24/,SPD/25/,PPE/96/, PPD/112/ 


e GPIB status bit vector: values 


BecieCliomioL BehGOn sine lectam-=) 15 (ibsta -LI, OO)... 
data ERR/-32768/ 


data TIMO/16384/,END/8192/,SRQI/4096 / 
data RQS/2048/,CMPL/256/,LOK/128/,REM/64/,CIC/32/ 
data ATN/16/,TACS/8/,LACS/4/,DTAS/2/,DCAS/1/ 


Iberr error messages: values 


data EDVR/0/,ECIC/1/, ENOL/2/, EADR/3/,EARG/4/ 
data ESAC/S/, EABO/6/,ENEB/7/, EOIP/10/, ECAP/11/ 
data EFSO/12/,EBUS/14/,ESTB/15/, ESRQ/16/ 


EOS mode bit values 
data BIN/4096/,XEOS/2048/ ,REOS/1024/ 


Timeoucmvalues 


deawea I NONE/O,7 ElOus/il/,to0us/2/7, T100us/3/ ,T300us/4/ 
data Tlms/5/,T3ms/6/,T10ms/7/ ,T30ms/8/,T100ms/9/ 
@mea (1300ms/7107,Tis/11/,13s/12/77T10s/13/,130s/14/ 
deca 110087157, 71300s/167, 71000s/17/ 


Miscellaneous values 


data $/03/,LF/10/ 


spk 


APPENDIX B 
GPIBX PROGRAM LISTING 


This is a listing of the developed system controller program called 
Crib 


S INCLUDE. = DECL Pek 
GPIBX. FOR 
IBM-PC/AT GPIB CONTROLLER PROGRAM 


MAIN PROGRAM 


Cio) Oy CY CY (Cay 6) 


xxK*XE THIS CALL INITIALIZES THE GPIB BUS **xx~x« 
CALL IBINIT (IBSTA) 


cons 


CALL CLEAR 
2 CALL MAINMENU 
READ (*,10) SELECTION 
10 FORMAT (1A1) 
IF (SEEEGUVON He eGee 2 a tnt: 
CALL PS 
ELSEL? CSELEGIION SEO. Dan 
CALL DMM 
ELSELF 2 sEEEG RGN nO eC eerie 
CALL COUNTER 
ELSEIF (Cs EEG ene nO Si ae) 
CALL SIGGEN 
ELSELF #GSEEEC iG EO © earn) 
CALL OS€OPE 
ELSEIF {SELECTION (EO g5 F > fan 
CALL FUNCMU 
ELSEIF (SELECEION | NE ir oq) ee beeen) 
WRITE (*, 20) ERRORZSELECG ETON 
20 FORMAT CO's PASO} 
GOTO 2 


JGJLesy)o 
SALONS 
EN DaRe 
GOTO 1 
END 


SUBROUTINE CLEAR 
Cxxx%x% THIS CLEARS THE SCREEN ox 
G ---SOME DECLARATIONS... 


CHARAGTER“ IC L224 G38 ca 


BW 


10 


20 


C 
C 


INTEGER*2 IC(4) 
ROUMVALENIG@E (Gl TC(1)). (C2. 1C(2)). (C3. 10(3)),,(64,1C(4)) 
DATA IC/16#1B, 16#5B, 16#32,16#4A/ 


Whee, (*,1) C1,C2,C3,C4 
FORMAT (1X,4A1) 

RETURN 

END 


SUBROUTINE MAINMENU 


Eibomeut THE MAIN MENUSONSIHE SCREEN **xx++* 


==-590ME DECLARATIONS... 
MENUETS: MENG DISPLAY 
CPeRACTER~50 MENUDIS , PS3010;, DM5010, DCSO009s WAVIEK ,TEK, EXIT, FUNC 


MENUDIS = ' wk MAIN MENU *%%! 
PS5010 = 'P........ POWER SUPPLY’ 
DMoOWOme De .26.. <a DIGITAL MULTIMETER’ 
DESO09GE 'C........ COUNTER/TIMER’ 
WAVOEKMM'S. 21... SIGNAL GENERATOR’ 
TEK = 1c) oe OSCILLOSCOPE’ 

FUNC = 'F........ special FUNCTIONS’ 
RIE = Xo sa ss EXIT PROGRAM’ 


WRITE (*,10) MENUDIS 
FORMAT (’0' ,1A50) 
WRITE (*,20) PS5010 
FORMAT ('0’ ,1A50) 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 


Ce 8) 
(*, 20) 
oe) 
C8) 
eo) 
Cg 0) 
(*, 30) 


DM5010 
DC5009 
WAVTEK 
eK 
FUNC 
Ey bh 


Heriat (€ 079%, ENTER YOUR SELECTION.’ ) 


RETURN 
END 


SUBROUTINE PS 


Oo el iehomto LHE DRIVER FOR THE POWER SUPPLY ***** 


C 
C 


Cc. 


Mm Fr’ ©} ©) 


---SOME DECLARATIONS... 
Poomeeel erOWER SUPPLY MENU SELECTION 


CHARACTER*1 PSSELECT 


CALL CLEAR 
WRITE (*,10) 


28 


WRITE 
WRITE 
WRITE 
WRITE 


(*, 20) 
(4720) 
(*,40) 
ee) 


WRITE (*,60) 
WRITE (*,65) 


C 

10 FORMAT ('0’ ,'*** POWER SUPPLY MENU ***’ ) 

20 FORMA Tai 0.) page ware ier SET VOLTAGES’ ) 

30 PO RIMA TG 0) 2) 2 cae eae SET CURRENT’ ) 

40 PORMATEG 0.” 352k ee ENABLE OUTPUT’ ) 

50 PORMATS( 0" . RE ieee RETURN TO MAIN MENU’ ) 
60 FORMAL (Os pe eee EXIT PROGRAM’ ) 

65 FORMAT ('0' 9X, "ENTER YOUR  SELECE EI as 

C 


READ (*,70) PSSELECT 
70 FORMAT (1A1) 

IF (PSSELECT .EQ. '1’) THEN 
CALI SHIVOlm 

ELSEIF (PSSELECT .EQ. '2') THEN 
CALL SETCURRENT 

ELSEIF (PSSELECT .EQ. '3’) THEN 
CALL OUTONOFF 


ELSEIF (PSsBLECT EQ. 9 Sahin 
RETURN 

ELSEIF “(Pos BErGi ss hO>) 4 7) THEN 
Se 

ELSE 


WRITE (*, 80) 


80 FORMAT (°0O" |’ INVALID INPUT, eeeAGsr) 
GOTO 2 
ENDIF 
GOTO 1 
END 
C 
C 


SUBROUTINE DMM 

Cxxxkx THIS IS THE DRIVER FOR THE DIGITAL MULTIMETER ***** 
CHARACTER*1 ACDC(4) ,ACV(3) ,DCV(3) ,DIODE(5) ,OHMS(4) , DMMSEL 
INTEGER WRTI(512) , DVM 


C 
ACV(1)= ‘A’ 
AG CZ) — aCe 
ACV(3)= 'V! 
C 
| ACDC(1)= ‘A’ 
ACDC(2)= 'C! 
ACDC(3)= 'D! 
ACDC(4)= 'C’ 
C 
DCV(1)= ‘D! 


534 


DCV(2)= ‘C’ 


Bev(3)= Vv" 
C 

Done p’ 

DIODE(2)= ‘I’ 

DIODE(3)= ‘0’ 

DIODE(4)= 'D’ 

DIODE(5)= 'E! 
C 

OHMS(1)= ‘0’ 

OHMS(2)= 'H! 

OHMS(3)= 'M’ 

OHMS(4)= 'S’ 
@ 
1 CALL CLEAR 
2 WRITE (*,10) 

WRITE (*,20) 

WRITE (*, 30) 

WRITE (*,40) 

WRITE (*,50) 

WRITE (*,60) 

WRITE (*,70) 

WRITE (*,80) 

WRITE (*,90) 
c 
10 FORMAT ('0! ,’*** DIGITAL MULTIMETER MENU ***') 
20 FORMAT ('0',’1........ DeevalaEs’ ) 
30 Moen (70 ,'2. 0.20.2. OHMS’) 
40 FORMAT ('0','3........ AC VOLTS rms’ ) 
50 FORMAT ('0',’4........ AC+DC VOLTS rms’) 
60 FORMAT ("0 ,'5........ DIODE TEST’ ) 
70 FORMAT ('0',’RET...... RETURN TO MAIN MENU’) 
80 FORMAT (0° ,’X...... EXIT’) 
90 FORMAT ('0’,’ENTER YOUR SELECTION’ ) 
C 

READ (*,100) DMMSEL 
100 FORMAT (1A1) 
C 


DVM= IBFIND (’DMM ') 

IF (DMMSEL .EQ. ‘1’) THEN 
CALL STRING (DCV,3, WRT) 
CALL IBWRT (DVM,WRT, 3) 

ELSEIF (DMMSEL .EQ. '2’) THEN 
CALL STRING (OHMS ,4,WRT) 
CALL IBWRT (DVM,WRT,4) 

ELSEIF (DMMSEL .EQ. ’3’) THEN 
CALL STRING (ACV,3,WRT) 
CALL IBWRT (DVM, WRT, 3) 

ELSEIF (DMMSEL .EQ. '4’) THEN 
esl SMRING CACDG 4, WRT) 
CALL IBWRT (DVM,WRT,4) 
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110 


C 
C 


C 
eS, 


10 
20 
30 
40 
50 
60 
65 
70 
80 


EESELF (COMMS EE Ske: 


BESE LF SCOMIS Etro 


EEE LE S(DUMSCE LT nO: 
Sk ON 


ELSE 


ENDIF 
GOTO l 
END 


Dae 


CALL STRING (DIODES "RD 
CALL IBWRI “(DVM WR 


-) “TREN 


RETURN 


ox) THEN 


WERDER Cs LO) 
FORMAT ('0',’ INVALID SELECTION, TRY AGAIN’ ) 
GOTO 2 


SUBROUTINE COUNTER 
Cxx*ek* THIS IS THE UNDEVELOPED DRIVER FOR THE COUNTER/TIMER *w%%*x 
---SOME DECLARATIONS... 


RETURN 


END 


SUBROUTINE SIGGEN 


THIS IS THE SIGNAL GENERATOR DRIVER ***%*%* 


---SOME DECLARATIONS... 
SIGSEL: SIGGEN MENU SELECTION 


CHARACTER*1 SIGSEL 


CALL CLEAR 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 


FORMAT 
FORMAT 


Ces) 
Ge Bo) 
ce Se) 
Ces 210)) 
(* 20) 
(*, 60) 
(*, 65) 
Ca 72) 
Comra-20D. 
oo!) 


('0'," 
GAGs 


FORMAT ('0', 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


(70 
CO; 
0 
('0', 
('0', 
oe 


oi eee FREQUENCY’ ) 

se eee re AMPLE TIDE) 

aoe an crs FUNCLTICN: ») 

EOL ..4 eee OFFSER 

ee OUTPUT ENABLE’ ) 

i 3 ae SWEEP FREQUENCIES’ ) 
RE = ee RETURN TO MAIN MENU’ ) 
VC ee EXL i> 


90 pOnMals (°O 79x," ENTER YOUR SELECTION’ } 


READ (*,100) SIGSEL 
100 FORMAT (1A1) 


TeeesiG3Hle. nO. 1 )° THEN 
CALL FREQ 
ELSEIF (SIGSEL .EQ. '2') THEN 
CALL AMP 
ELSEIF (SIGSEL .EQ. '3’) THEN 
CALL FUNC 
ELSEIF (SIGSEL .EQ. '4') THEN 
CALL OFFSET 
ELSEIF (SIGSEL .EQ. '5’) THEN 
CALL SIGOUT 
ELSEIF (SIGSEL .EQ. '6’) THEN 
CALL SWEEP 
ELSEIF (SIGSEL .EQ. ’ ') THEN 
RETURN 
ELSEIF (SIGSEL .EQ. 'X’) THEN 
STOP 
ELSE 
WRITE (*,110) 
110 FORMAT ('0’,’ INVALID RESPONSE, TRY AGAIN. ') 
GOTO 2 
ENDIF 
GOTO 1 
END 
C 
C 
SUBROUTINE FREQ 
Cxkexk* THIS MAKES THE SIGGEN OUTPUT A SPECIFIED FREQUENCY ***%% 
INTEGER DVM,1,WRT(512) 
CHARACTER*1 FREQ(13) , INPUT(11) 


C 
FREQ(1)= 'F’ 
FREQ(13)= ‘I’ 
C 
DVM= IBFIND ('SIGGEN ') 
WRITE (*,10) 
10 FORMAT ('0’ ,9X,'ENTER DESIRED FREQUENCY AS XXX.XEX (.01Hz-12MHz)’) 
C 
READ (*,20) INPUT 
20 FORMAT (11A1) 
fe 
i DO 30 I= 1,11 
FREQ(I+1)= INPUT(I) 
30 CONTINUE 
G 


CALL STRING (FREQ,13,WRT) 
CALL IBWRT (DVM,WRT,13) 


oy 


RETURN 
END 
C 
C 
SUBROUTINE AMP 
C*xxexeee THIS MAKES THE SIGGEN OUTPUIL AVSPECIFIED At Et 
INTEGER DVM,1I,WRT(512) 
CHARACTER*1 AMP(13) , INPUT(11) 


CG 
AMP(1)= ‘A’ 
AMP(13)= ‘TI’ 
C 
DVM= IBFIND (’SIGGEN ') 
WRITE (*,10) 
10 FORMAT (’0’ ,9X, ENTER DESIRED AMPLITUDES 225 PREG rCR ies 
WRITE (*,15) 
LS FORMAT ('0’ ,9X,’SIGNAL AMPLITUDE IS Vpp FROM T@mvV TO)10. OV”) 
C 
READ (*,20) INPUT 
20 FORMAT (11A1) 
C 
DO 30 I= 1,11 
AMP (I+1)= INPUT(L) 
30 CONTINUE 
C 
CALL STRING (AMP,13,WRT) 
CALL IBWRT (DVM,WRT, 13) 
RETURN 
END 
C 
CG 


SUBROUTINE FUNC 

Cxxkee THIS MAKES THE SIGGEN OUTPUT A SPECIFIED WAVEFORM ****%* 
INTEC ERD ie Te Wiel ou) 
CHARAGTER*1 INPUT ,CO(3),€1(3)7G2@)) 76215) ues) 


GC 
CO(1)= ‘C’ 
CO(2)= '0' 
COG )= "1" 
C 
GGL =" iC 
Ci 2) =" 1" 
Cl@e)= 1? 
C 
G2(1)= 'C’ 
CAG )= 2" 
G2(3)= ‘I’ 
C 
C31) = Gc 
GS@Z=s 3t 
C33) =a 
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k- 


100 


C4(1)= 
C4(2)= 
C4(3)= 


oe Oe! 
sae 
Se 


DVM= IBFIND (’SIGGEN ’) 


CALL CLEAR 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


Cee) 
(e309) 
Cy, 
C350) 
(*, 50) 
(*, 60) 
Con 8) 
(*, 80) 
Co 
oS 
(’0', 
(AS) 
('0', 
Co; 
C70", 
('0', 


‘xxx SIGNAL GENERATOR FUNCTION MENU ***’" ) 

je a ee SINE WAVE’ ) 

ee a eae TRIANGLE WAVE’ ) 

ees a, wh de SQUARE WAVE in phase with sync output’) 

Ges fo einonto™ SQUARE WAVE out of phase with sync output’ ) 
See DC OUTPUT VOLTAGE’ ) 

“sic San RETURN TO SIGNAL GENERATOR MAIN MENU’ ) 
Ns. 5 ne EXIT PROGRAM’ ) 


ews a0): INPUT 


FORMAT (1A1) 


IF (INPUT .EQ. 


Evooly “INPUT. EQ. 


EPoeir CINPRUT .EQ: 


ELSEIF (INPUT .EQ. 


Bestib (INPUT ~EQ. 


HES ie eC INPUT. .EQ. 
SLOT 


ESE 


‘1’ ) HEN 


Cmeesimaine (CO,3 UR) 
CALL IBWRT (DVM, WRT, 3) 


ee 


) THEN 


Guta STRING (C1, 3, WRT) 
CALL IBWRT (DVM,WRT, 3) 


aa 


) THEN 


CALL STRING (C2,3,WRT) 
CALL IBWRT (DVM, WRT, 3) 


mies 


ASQ e iy 


CAEG STRING (C353,WRI) 
CALL IBWRT (DVM, WRT, 3) 


nS 


) THEN 


CALL STRING (C4,3,WRT) 
CALL IBWRT (DVM,WRT, 3) 
ELSEIF (INPUT .EQ. ' ' 
RETURN 


ee ed 


WRITE (*,100) 
FORMAT ('0' ,9X,’INVALID ENTRY, TRY AGAIN’) 
GOTO 2 


) THEN 


J THEN 
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ENDS 
GOTO 1 
END 
C 
C 
SUBROUTINE OFFSET 
Cx*x*xx*x THIS ENTERS A DC OFFSET FOR THE SIGGEN OUTPUT *xxxx 
INTEGER DVM,I,WRT(512) 
CHARACTER*1 D(6),INPUT(4) 


é 
D(1l)= 'D’ 
D(6)= ‘I’ 
C 
DVM= IBFIND ('SIGGEN ') 
WRITE (*,10) 
10 FORMAT ('0',9X,’ENTER DESIRED OFFSET AS -5.00 TO +5.00 VOLTS’) 
C 
READ (*,20) INPUT 
20 FORMAT (4A1) 
c 
DO 30 I= 1,4 
D(I+1)= INPUT(T) 
30 CONTINUE 
C 
CALL STRING (D,6,WRT) 
CALL IBWRT (DVM,WRT,6) 
RETURN 
END 
G 
C 


SUBROUTINE SIGOUT 

Cxxxx%e THIS TOGGLES THE SIGGEN OUTPUT **x*xx** 
CHARACTER er Ot3) bis) INeGE 
INTEGER WRT(512) , DVM 


C 
DVM = IBFIND (’SIGGEN ') 
C 
FOG) =" 7 2" 
PO(2)= ‘0’ 
PO(3)= ‘I’ 
C 
Piha] PR? 
PLEGZ) = 91! 
P1(3)= ‘I’ 
C 
I WATE ea O) 
10 FORMAT (’0’ ,9X,’SIGNAL GENERATOR OUTPUT ON? ENTER Y OR N’) 
C 


READ (*,20) INPUT 
20 FORMAT (1A1) 
IF (INPUT (EQ. 'Y Seinen 
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CALL STRING (P1,3,WRT) 
CALL IBWRT (DVM,WRT, 3) 
Mie ENPUL..5O. “N’) THEN 
CALL STRING (P0,3,WRT) 
CALL IBWRT (DVM, WRT, 3) 


nes 
WRITE (%*, 30) 
30 FORMAT ('0’,’ INVALID RESPONSE, TRY AGAIN’ ) 
GOTO 1 
ENDIT 
RETURN 
END 
C 
C 


SUBROUTINE SWEEP 
Cxxee* THIS SWEEPS THRU A RANGE OF FREQUENCIES **%%% 
CHARACTER*8 INPUTA, INPUTB 
CHARACTER*1 FREQ(10) , TEMP(8) , INPUTC 
INTEGER I,J,K,L,DVM,STEPS , WRT(512) , TEMPA 
REAL STARTF,STEPF, VALUE 


C 
FREQ(1) = 'F! 
FREQ(10) = ‘I’ 

E 
DVM = IBFIND ('SIGGEN ') 

G 
CALL CLEAR 
WRITE (*,10) 

10 FORMAT ('0','SWEEP FREQUENCIES FUNCTION’ ) 
WRITE (*,20) 

20 FORMAT ('0’,'ENTER STARTING FREQUENCY AS XXX.XEX (.01Hz-12MHz)’) 
READ (*,30) INPUTA 

30 FORMAT (148) 
WRITE (*,40) 

40 FORMAT ('0',’ENTER FREQUENCY STEP SIZE AS XXX.XEX (.01Hz-12MHz)’) 
READ (*,30) INPUTB 
WRITE (*,50) 

50 FORMAT ('0',’ENTER NUMBER OF STEPS 1-99’) 
READ (*,60) STEPS 

60 FORMAT (112) 

C 


READ (INPUTA,65) STARTF 
65 FORMAT (BNF8.0) 
ReaD (INPUIB,65) STEPS 


C 

. READ (INPUTA,80) TEMP 
80 FORMAT (8A1) 
C 


Pony O.1—),STEPS 
DO 90 J=1,8 
FREQ (J+1)=TEMP(J) 


ol 


90 CONTINUE 
CALL STRING (FREQ, 10,WRT) 
CALL IBWRT (DVM,WRT,10) 
WRITE (*,95) STARTF 
95 FORMAT ('0','FREQUENCY IS NOW ’,F10.2,’ Hz’) 
WRITE (*,100) I 
100 FORMAT ('0','STEP #',12, 
A ' COMPLETE. ENTER RET TO CONTINUE OR ANY OTHER KEY TO END’) 
READ (*,110) INPUTC 
110 FORMAT (1A1) 
IF (INPUTC .NE. ' ') THEN 
RETURN 
ELSE 
STARTF = STARTF + STEPF 
VALUE = STARTF 
DO 120 K=1,8 
TEMPA = INT(STARTF/(10**(8-K))) 
TEMP(K) = CHAR (TEMPA + 48) 
STARTF = STARTF - (TEMPA*10**(8-K)) 
120 CONTINUE 
STARTF = VALUE 


EDIE 
70 CONTINUE 
RETURN 
END 
C 
C 


SUBROUTINE OSCOPE 
Cx*xexe THIS IS THE OSCOPE DRIVER ***x+* 
DVM = IBFIND (“OSCerE > 


C 

1, CALL CLEAR 

2 WRITE (*,10) 
WRITE (4520 


WRETE (= 430) 
WRITE (*,40) 
WEE Ga) 
WRITE (*,60) 
WREDGE (*. 70) 


G 
10 FORMAT ('0','’*** OSCOPE MENU *%*%*‘) 
20 FORMAT ('0','1........ RECORD WAVEFORM DATA’ ) 
30 FORMAT. °O". "0. . Jame GO TO LOGA.) 
40 FORMAT ('0','3........ REMOTE ENABLE’ ) 
50 FORMAT ('0',’RET........ RETURN TO MAIN MENU’) 
60 FORMAT ('0','X........ EXI0”) 
70 FORMAT ('0',’ENTER YOUR SELECTION’ ) 
G 
READ (*,100) SELECTION 
100 FORMAT (1A1) 
@ 
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ieee LECTION bO. 1") THEN 
CALL RECORD 

iS (SPLECT ION EQ. %2°) THEN 
CALL IBLOC (DVM) 

Beoekr (SELECTION 2EQ. *3’) THEN 
DVM = IBFIND (’OSCOPE ”) 


BEE A SELEOTLION) EO.” '’) THEN 
RETURN 
DesoD tp oPLEGELON. ~2Q. ' xX’) THEN 
SLOP 
POIES JO 
WRITE (*,110) 
110 FORMAT (’0’,’INVALID SELECTION, TRY AGAIN’ ) 
COTO 2 
END EP 
GOTO 1 
END 
C 
C 


SUBROUTINE RECORD 
Cxxxxx THIS IS THE WAVEFORM RECORDING DRIVER ***%*% 
CHARACTER*1 SEL, ACCESM(4), ASCII(2), RECORM(13), RELALM(7) 
CHARACTER*15 REC, ACCESS, RELALL, FILNAM 
INTEGER WRT(512) , DVM 
REAL TIMDIV,VOLDIV 


C 
ASGI1(1)<= ‘A’ 
AGCTI(2) = *S’ 
REC = 'SEL SAVE.R:C?’ 
RELALL = ’REL ALL’ 
C 
DVM = IBFIND ('’OSCOPE ') 
i CALL CLEAR 
E 
WRITE (*,800) 
800 FORMAT ('0’,’THIS PROGRAM CREATES A DATA FILE THAT CAN BE’) 
WRITE (*,810) 
810 FORMAT (' ',’BE USED WITH THE SLIDE WRITE PLUS PROGRAM TO’) 
WRITE (*,820) 
820 FORMAT (’ ','PLOT THE WAVEFORMS ON THE OSCOPE. ADJUST THE’) 
WRITE (*,830) 
830 FORMAT (’ ',’SCOPE FOR A PROPERLY TRIGGERED TRACE, NO JITTER’) 
WRITE (*,840) 
84.0 FORMAT (’ ',’USE THE HORIZ CONTROL TO LEFT JUSTIFY THE TRACES’ ) 
C 
2 WRITE (*,10) 
10 FORMAT ('0','SELECT WAVEFORM DESIRED’) 
WRITE (*,20) 
20 FORMAT ('0’,’ 1..... RIGHT COMPARTMENT CHANNEL 1’) 
WRITE (*,30) 
30 FORMAT (' ',’ 2..... RIGHT COMPARTMENT CHANNEL 2’) 
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40 


50 


60 


G 


80 


300 


310 


320 


He16 


110 


900 


WRITE (*,40) 
FORMAT ('0',’ENTER YOUR SELECTION 1 OR 2’) 
READ (*,50) SEL 
FORMAT (1A1) 
IF (SED WEO 7G eae 
ACGESS .—- 7 ARE 
ELSELF (SEES SEOs) 2 >) Tia: 
AGCESS == AURZ: 


ELSE 
WRITE (*,60) 
FORMAT ('0’ ,‘ INVALID SEEHCTION , ER sAcAin 
GOTO 2 

Jean BONIS 


READ (ACCESS, 70) ACCESM 
FORMAT (4A1) 


CALL STRING (ACCESM,4,WRT) 
CALL IBWRT (DVM, WRT, 4) 


CALL STRING (ASCII,2,WRT) 
CALL IBWRT (DVM,WRT, 2) 


READ (REC,80) RECORM 
FORMAT (13A1) 

CALL STRING (RECORM,13 ,WRT) 
CALE LEW REe Die win | ko) 


CALL IBRDF (DVM,’SCOPE ') 


WRITE (*,300) 

FORMAT ('0',’ENTER TIME/DIV AS X.XXEX’) 
READ (*,310) TIMDIV 

FORMAT (1BNF10.7) 

TIMDIV = TIMDIV * 10.0 

WRITE (*,320) 

FORMAT ('0’,’ENTER VOLTS/DIV AS X.XXEX’) 
READ (*,330) VOLDIV 

FORMAT (1BNE12.6) 


CALL SCALER (TIMDIV, VOLDIV) 


READ (RELALL,110) RELALM 

FORMAT (7A1) 

CALL STRING (RELALM,7,WRT) 

CALL IBWRT (DVM,WRT,7) 

CALL IBLOC (DVM) 

WRITE (*,900) 

FORMAT ('0',’YOU CAN NOW USE SLIDE WRITE PLUS TO PLOT YOUR’) 
WRITE (*,910) 
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ZO 


920 


C 
C 


Geir te tre dees 


30 
50 
40 


100 


FORMAT (’ ',’DATA FILES. HIT ENTER TO CONTINUE’ ) 
Peery, 920)" SEL 

FORMAT (1A1) 

RETURN 

END 


SUBROUTINE SCALER (TIMDIV, VOLDIV) 


THIS SCALES THE DATA RECEIVED FROM THE OSCOPE %**%%% 


CHARACTER*6 CURVE 

INTEGER I,J,K,MINUS,L,COUNT,END,NOPTS 

CHARACTER*1 OSDATA(5000) , COMMA 

Pees YDATAC LONG), YIEMP(3) TIMDIV, VOLDIV,XDATA, OFFSET 
CHARACTER*12 FILNAM 


COMMA=",' 


NOPTS = 508 
ea iD hve Lie 0.000075) NOPTS = 1016 


OPEN Cl FilLe= SCOPE *{STATUS="OLD’ , FORM=" BINARY’ ) 
READ (1) CURVE 


ToT 

READ (1,ERR=30,END=40) OSDATA(I) 

I = [+l 

GOTO 1 

WRITE (*,50) 

FORMAT (’' ’,’ ERROR IN READING FILE’ ) 
GEOSE (1) 


COUNT = I 
END = COUNT-3 


= ] 
= ] 
= ] 

MINUS = 0 

PEeCOSDATACE) .EQ. ’-’) THEN 
MINUS = 1 

I = I+l 


G1 7H 


ENDIF 
YTEMP (K) FLOATCICHAR (OSDATACT) ) ) 
YTEMP(K) = YTEMP(K) - 48.0 
I = I+1 
K = K+l 
ieee Gr. 7) STOP 
PeecospArACT) .NE. ’,') THEN 
GOTO 100 


BESS 


65 


Lis 


18 
400 


410 


420 
220 


300 


300 


QO? 


%- 


GOTO 118 
ENDIF 
K = K-l 
IF (Kk EO, 2 tHe 
YDATA(J) = (100.0*YTEMP(K-2) )+(10.O0*YTEMP(K-1))+YTEMP(K) 
ELSEIF (CKeebO 222 Heh 
YDATA(J) = (10.0*YTEMP(K-1) )+YTEMP(K) 
ELSELF (Ky je@peeL) DHE 
YDATA(J) = YTEMP(K) 
ENDIF 
IF (MINUS .EQ. 1) YDATA(J) = 0.0-YDATA(J) 
YDATA(J) = CC(YDATA(J)4+15.0)/100. )*VOLDIV 
J e= Jee 
I = I+l 
MINUS = 0 
TFG) -EOe es IOrls)  -Goter20 
K=1 
GOTO 100 


WRITE (*,400) 
FORMAT ('0',’ENTER DOS FILE NAME TO STORE WAVEFORM DATA IN’) 
READ (*,410) FILNAM 
FORMAT (1A12) 
OPEN(2 , FILE=FILNAM , STATUS='NEW’ , FORM=’ FORMATTED’ ) 
I=1 
K=] 
XDATA = 0.0 
IF (NOPES .EOQ. 505) THEN 
WRITE (2,220) XDATA,COMMA,YDATA(L) 
FORMAT (E10.5,A1,F10.3) 
XDATA = (TIMDIV*I)/508.0 
I=I+1 
K=K+1 
IF (K .EQ. 5) I=I+1 
TPR CREO. 5) Kel 
Eiwtie EQ. 501) "GOTO. s00 


GOTO 420 
ELSE 
OFFSET = TIMDIV/1016 
DO 500 I=1,1016,3 
XDATA = OFFSET * (I-1) 
WRITE (2,220) XDATA, COMMA, YDATA(L) 
CONTINUE 
ENDIF 
Chose) 
RETURN 
END 


SUBROUTINE SETVOLT 


‘ THIS SETS THE POWER SUPPLY OUTPUT VOLTAGE... 


66 


CHARACTER*1 SVOPT 


é 
1 CALL CLEAR 
2 WRITE (*,10) 
WRITE (*,20) 
WRITE (*,30) 
WRITE (*,40) 
WRITE (*,50) 
WRITE (*,60) 
WRITE (*,65) 
10 FORMAT ('0',’%*** VOLTAGE SETTING MENU **%' 
20 FORMAT (’0','l1........ VPOS') 
30 FORMAT ('0','2........ VNEG' ) 
40 FORMAT (90803 o>... VILOGIG2)) 
50 FORMAT ('0','RET...... RETURN TO POWER SUPPLY MENU’ ) 
60 H@RMAT ('0',‘X........ EXIT PROGRAM’ ) 
65 FORMAT ('0’ ,9X,’ENTER YOUR SELECTION. ') 
C 
READ (*,70) SVOPT 
70 FORMAT (1A1) 
IF (SVOPT .EQ. ‘l’) THEN 
CALL VPOS 
ELSEIF (SVOPT .EQ. '2’) THEN 
CALL VNEG 
ELSEIF (SVOPT .EQ. ’3’) THEN 
CALL VLOG 
ELSEIF (SVOPT .EQ. ’ ') THEN 
RETURN 
ELSEIF (SVOPT .EQ. ’X’) THEN 
STOP 
ELSE 
WRITE (*,80) 
80 FORMAT ('0’,’ INVALID INPUT, TRY AGAIN’) 
Esro 2 
ENDIF 
GOTO 1 
END 
C 
é 


SUBROUTINE SETCURRENT 
Cxxex* THIS SETS THE POWER SUPPLY CURRENT LIMITS ‘0% 
CHARACTER*1 SCOPT 


}- 


CALL CLEAR 
2 WRITE (*,10) 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 


20) 
(*, 30) 
8) 
(a5 20)) 
C18) 
(50>) 
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10 FORMAT ('0' ,'*** CURRENT SETTING MENU ***’) 
20 FORMAT ('0',’l........ IPOS’) 
30 FORMAT (Oy 2a ae INEG’) 
40 FORMAT =(' Gt tee eee TLOCre® 
50 FORMAT ('0',’RET...... RETURN TO POWER SUPPLY MENU’ ) 
60 FORMAT ('0','X........ EXIT PROGRAM’) 
65 FORMAT ('0' ,9X,'ENTER YOUR SELECTION. ') 
C 
READ (*,70) SCOPT 
70 FORMAT (1A1) 
IF (SCOPT .EQ. '1’) THEN 
CALL IPOS 
ELSEIF (SCOPT .EQ. '2’) THEN 
CALL INEG 
ELSEIF (SCOPT .EQ. '3’) THEN 
CALL ILOG 
ELSEIF (SCOPT .EQ. ' ') THEN 
RETURN 
ELSEIF (SCOPT .EQ. 'X’) THEN 
STOP 
ELSE 
WRITE (*,80) 
80 FORMAT ('0',’ INVALID INPUT, TRY AGAIN’) 
GOTO 2 
ENDIF 
GOTO 1 
END 
E 
G 


SUBROUTINE OUTONOFF 

Cx*xxxx THIS TOGGLES THE POWER SUPPLY OUTPUTS **x*x 
CHARACTER*1]1 ANSWER, MSGYES(6), MSGNO(7) 
INTEGER 1,J,K,WRI(512) , DVM 


C 
MSGYES(1) = ‘0’ 
MSGYES(2) = 'U’ 
MSGYES(3) = ‘T! 
MSGYES(4) = ' ' 
MSGYES(5) = ‘0’ 
MSGYES(6) = 'N’ 

C 
MSGNO(1) = ‘0° 
MSGNO(2) = 'U’ 
MSGNO(3) = 'T! 
MSGNO(4) = ' ' 
MSGNO(5) = ‘0! 
MSGNO(6) = 'F’ 
MSGNO(7) = 'F! 

C 


DVM = IBFIND ('PS ‘) 
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1 WRITE (*,10) 

10 POR be( 0,’ POWER SUPPLY OUTPUTS ON? ENTER Y OR N.') 
READ (*,20) ANSWER 

20 FORMAT (1A1) 


IF (ANSWER .EQ. ’Y’) THEN 
CALL STRING (MSGYES,6,WRT) 
CALL IBWRT (DVM,WRT,6) 
ELSEIF (ANSWER .EQ. 'N’) THEN 
CALL STRING (MSGNO,7,WRT) 
CALL IBWRT (DVM,WRT,7) 


BES E 
WRITE (*, 30) 
30 FORMAT ('0’,’ INCORRECT INPUT, TRY AGAIN’ ) 
GOTO 1 
END LF 
RETURN 
END 
C 
C 


SUBROUTINE VPOS 
ae om oko, POWER SUPPLY OUTPUT A SPECIFIED POSITIVE VOLTAGE 
CHARACTER*1 VPOS(9) 
CHARACTER*1 INPUT(4) 
MiiECERwL. JK ,WRI(@512) ,DVM 


WIEOS 1) aye 
VEOS (2) = 'P’ 
VPOS (3) aoe 
VPOS (4) road 
VE@S(5) =’ ' 


WRITE (*,10) 
10 FORMAT ('0’,’ ENTER DESIRED POSITIVE VOLTAGE AS’, 
+’ X¥.¥X (0-32.0Vdc)’) 
READ (*,20) INPUT 
20 FORMAT (4A1) 
DO 30 I= 6,9 
Ke I-5 
VPOS(I) = INPUT(K) 
30 CONTINUE 
CALL STRING (VPOS,9,WRT) 
DVM = IBFIND ('PS ') 
CALL IBWRT (DVM,WRT,9) 
RETURN 
END 
C 
G 
SUBROUTINE VNEG 
Cxx*x* THIS MAKES THE PS OUTPUT A SPECIFIED NEG VOLTAGE *%*%%* 
CHARACTER*1 VNEG(9) 
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10 


20 


30 


CHARACTER*1 INPUT(4) 
INTEGER I,J,K,WRT(512) , DVM 


VNEG(1) = 'V! 

VNEG(2) = 'N’ 

VNEG(3) = 'E! 

VNEG(4) = 'G! 

VNEG(5) = ' ' 

WRITE (*,10) 

FORMAT ('0O’,’ ENTER DESIRED NEGATIVE VOLTAGE AS’, 


X.XX (0-32.0Vdc’ ) 
READ (*,20) INPUT 
FORMAT (4A1) 


DO 30 I= 6,9 

= I-5 

VNEG(I) = INPUT(K) 
CONTINUE 


CALL STRING (VNEG,9,WRT) 
DVM = IBFIND ('PS ') 
CALL IBWRT (DVM,WRT,9) 
RETURN 

END 


SUBROUTINE VLOG 


Cxx*e*k* THIS MAKES THE PS OUTPUT A SPECFIED LOGIC VOLTAGE **x*xx 


10 


20 


30 


CHARACTER*1 VLOG(9) 
CHARACTER*1 INPUT(4) 
INTEGER Td ake wh hel). bil 


VLOG(1) = ‘'V' 
VLOGC(2) S=ae 
VLOG(3) = ‘0’ 
VLOG(4) = 'G' 
VLOG(5) = ' ' 


WREiEeCx, 10) 

FORMAT (‘'0’,’ ENTER DESIRED LOGIC VOLTAGE AS’, 
Ree (-44500TO 5.50 Vde™ 

READ (*,20) INPUT 

FORMAT (4A1) 


DO 30 I= 6,9 
= I-5 
VLOG(I) = INPUT(K) 
CONTINUE 


CALL STRING (VLOG,9,WRT) 
DVM e=StSEIND Se Ps =) 
CALL IBWRT (DVM, WRT, 9) 
RETURN 

END 


70 


6 
C 
SUBROUTINE IPOS 
Cxreee THIS SET THE PS POS CURRENT MAXIMUM wo 
CHARACTER*1 IPOS(9) 
CHARACTER*1 INPUT(4) 
INTEGER I,J,K,WRT(512) ,DVM 


C 
IPOS(1) = ‘I’ 
IPOS(2) = 'P! 
IPOS(3) = ‘0! 
IPOS(4) = 'S! 
IPOS(5) = ' 
C 


WRITE (*,10) 
10 FORMAT (’0’,’ ENTER DESIRED POSITIVE CURRENT MAXIMUM’ , 
+’ AS X.XX (1.60Amax’ ) 
READ (*,20) INPUT 


20 FORMAT (4A1) 
DEe30 I= 6,9 
K= I-5 
MEOS@I) = INEUT CK) 
30 CONTINUE 


CALL STRING (IPOS,9,WRT) 
DVM = IBFIND (’PS ') 
CALL IBWRT (DVM,WRT,9) 
RETURN 
END 

C 

é 
SUBROUTINE INEG 

Cxxexx* THIS SETS THE PS NEG CURRENT MAXIMUM *%%%* 
CHARACTER*1 INEG(9) 
CHARACTER¥1 INPUT(4) 
INTEGER I,J,K,WRT(512) ,DVM 


C 
IMEG(1) = ‘1’ 
INEG(2) = ‘N' 
1EG(3) = ‘E’ 
INEG(4) = 'G’ 
PEEK) =" ' 
C 


WRITE (*,10) 
LO FORMAT ('0',’' ENTER DESIRED NEGATIVE CURRENT MAXIMUM’ , 
+' AS X.XX (1.60Amax)’ ) 
READ (*,20) INPUT 


20 FORMAT (4A1) 
Do 407 I= 6,9 
K= I-5 
INEG(I) = INPUT(K) 
30 CONTINUE 


ra 


C 
C 


CALL STRING (INEG,9,WRT) 
DVM = IBFIND ('PS ') 
CALL IBWRT (DVM, WRT, 9) 
RETURN 

END 


SUBROUTINE ILOG 


Cxxxx* THIS SETS THE PS LOGIC CURRENT MAXTMUM 


16 


20 


30 


CHARACTER*1 ILOG(9) 
CHARACTER*1 INPUT (4) 
INTEGER 1,5 ;5K, WR bO512)50Vi 


ILOG(1) = ‘I’ 
ILOG(2) = 'L' 
ILOG(3) = ‘0’ 
ILOG(4) = 'G' 
ILOG(5) = ' ' 


WRITE (*,10) 
FORMAT ('0',’' ENTER DESIRED LOGIC CURRENT’, 
MAXIMUM AS X.XX (1.60Amax)’ ) 
READ (*,20) INPUT 
FORMAT (4A1) 
DO 30 I= 6,9 

K= [-5 

TEOG(T).— INEUT(K) 
CONTINUE 
CALL STRING (ILOG,9,WRT) 
DVM = IBFIND (’PS ') 
CALL IBWRT (DVM, WRT, 9) 
RETURN 
END 


SUBROUTINE STRING (INPUT, LENGTH, WRT) 


CxxxxX THIS CONVERTS CHARACTER STRINGS INTO REQUIRED FORM FOR IBWRT ** 


10 


C 
C 


CHARACTER*1 INPUT(30) 
INTEGER EENCTH 17) (Kowal ob) 


J= 1 

DO 10 I=1, LENGTH, 2 
K= I+l 
WRT (J)= ICHAR(INPUT(I)) + (CICHAR(INPUT(K) )*256) 
J= J+1 

CONTINUE 

RETURN 

END 


SUBROUTINE FINDER 


Cxxxxe THIS HELPS TO FIND GPIB ERRORS **%%%* 


Vz 


COMMON /IBGLOB/ IBSTA, 
Welle (*, 10) 


Poh elooN L 


10 FORMAT (’ FIND ERROR’ ) 
RETURN 
END 

C 

C 


SUBROUTINE ERROR 
Cxx*xx* THIS WRITES THE STATUS, 
COMMON /IBGLOB/ IBSTA, 
While (+, 10) 1SSTA, 


ERROR CODE, AND BYTE COUNT **x*xx 
IBERR LBCNT 
TeEA ee feo Er 


EO FORMAT (' ERROR’ ,16,16,16) 
RETURN 
END 

C 

C 


SUBROUTINE CHKSTATUS 
Cxxx%** THIS SUBROUTINE CHECKS IBSTA AND WRITES IT TO THE SCREEN. 
Cx*xx«xx ERRROR IS FOUND IBSTA, 
Cxxx*ex SCREEN. 
C 


ibe Byeuh| 
IBERR, AND IBCNT ARE WRITTEN TO THE 


WRITE (*,10) IBSTA 


10 FORMAT SCO 1BSTA 1S *,16) 
LP SGibotrees il. Oj) CALL ERROR 
RETURN 
END 
C 
C 
SUBROUTINE FUNCMU 
Cx*xex* THIS IS THE SPECIAL FUNCTION MENU DRIVER **x*xx% 
C ---SOME DECLARATIONS... 
C 
CHARACTER*1 SELECT 
C 
C 
J. CALL CLEAR 
y. Welk <*, 10) 
WRITE (%*,20) 
C WRITE (*, 30) 
C WRITE (*,40) 
WRITE (*,50) 
WRITE (*,60) 
WRITE .<(*765) 
C 
10 FORMAT ('0','*** SPECIAL FUNCTION MENU *%*’ ) 
20 Pie COU Ls ste. BODE PLOT’ ) 
30 Perea TO 2 6 es BLANK’ ) 
40 Pein Or Oe ek BLANK’ ) 
50 Perea (OO) "RET ie... RETURN TO MAIN MENU’ ) 
60 BGRMRT)(*O’,'X.. iW aw. EXIT PROGRAM”) 
65 noniAte ) 79x, ENTER YOUR SELECTION.‘ ) 


1: 


READ (*,70) SELECT 

70 FORMAT (1A1) 

De (SELEGR . bene) TEEN 
CALL BODE 

ELSEIF (SELECT .EQ. '2') THEN 
CALL BLANK 

ELSEIF (SELECT .EQ. '3') THEN 
CALL BLANK 

ELSEIF (SELECT .EQ. ' ') THEN 
RETURN 

ELSEIF (SELECT .EQ. ‘X’) THEN 
STOP 


ip als Ge He > ape 


ELSE 
WRITE (*, 80) 
80 FORMAT ('0’,' INVALID INPUT, TRY AGAIN’ ) 
GOTO 2 
ENDIF 
GOTO 2 
END 


SUBROUTINE BODE 

Cx*xex* THIS IS THE BODE PLOT DRIVER *%***% 
COMMON /IBGLOB/ IBSTA, IBERR, IBCNT 
CHARACTER*12 RDDAT(400) 
INTEGER DVM, COUNT(400) , LENGTH 
CHARACTER*16 FMT 
CHARACTER*14 FLNAME 


6 
CHARACTER*8 INPUTA, INPUTB 
CHARACTER*1 FREQ(10) , TEMP(8), INPUTC,ACV(3) 
INTEGER 1,J,K,L,STEPS ,WRT(512) , TEMPA 
REAL STARTF,STEPF,VALUE,Y(400) , LASTF, VOLTIN, VIN, DB(400) , VOUT 
6 
I=1 
C 
FREQ(1) = 'F! 
FREQ(10) = ‘I’ 
G 
G 
CALL CLEAR 
WRITE (*,10) 
10 FORMAT ('0',’BODE PLOT DATA GENERATOR’ ) 
WRITE (*,20) 
20 FORMAT ('0’,’ENTER STARTING FREQUENCY AS XXX.XEX (.01Hz-12MHz)') 
READ (*,30) INPUTA 
30 FORMAT (148) 
WRITE (*,40) 
40 FORMAT ('0',’ENTER STOPPING FREQUENCY AS XXX.XEX (.01Hz-12MHz)’) 


READ (*,30) INPUTB 


74 


50 


a1 


52 


5/6) 


a5. 


65 


20 


0 


WRITE (*,50) 

FORMAT ('0’,’ENTER NUMBER OF DATA POINTS TO TAKE (1-400)’) 
READ (*,51) STEPS 

FORMAT (113) 

WRITE (*,52) 

FORMAT ('0',’ENTER PEAK AMPLITUDE OF INPUT SIGNAL AS X.XX’) 
READ (*,53) VOLTIN 

FORMAT (1F10.3) 

VIN = .707 * VOLTIN 


WRITE (*,55) 

FORMAT ('0',’EXECUTING...’) 
READ (INPUTA,65) STARTF 
FORMAT (BNF8.0) 

READ (INPUTB,65) LASTF 
STEPF = (LASTF-STARTF) /STEPS 


READ (INPUTA,80) TEMP 
FORMAT (8A1) 


Dit — i BRIND C’ DMM.” > 


ACV(1)= 'A’ 
ACV(2)= 'C’ 
ACV(3)= 'V! 


CALL STRING (ACV,3,WRT) 
CALL IBWRT (DVM, WRT, 3) 


CALL IBRD (DVM,RDDAT(I),12) 

DO 70 I=1,STEPS 
DO 90 J=1,8 

FREQ(J+1)=TEMP (J) 

CONTINUE 
DVM = IBFIND (’SIGGEN ') 
CALL STRING (FREQ,10, WRT) 
CALL IBWRT (DVM,WRT,10) 
Y¥(I) = STARTF 


DVM = IBFIND ('’DMM ') 
CALL IBRD (DVM,RDDAT(I) ,12) 
COUNT(I) = IBCNT 


STARTF = STARTF + STEPF 
VALUE = STARTF 
DO 120 K=1,8 
TEMPA = INT(STARTF/(10%**(8-K) )) 
TEMP(K) = CHAR (TEMPA + 48) 
STARTF = STARTF - (TEMPA*10**(8-K)) 
CONTINUE 
STARTF = VALUE 


js 


70 


71 


az 


ie 


300 


410 


400 


430 


420 


500 


S01 


502 


503 


CONTINUE 
CALL CLEAR 
While (<7) 
FORMAT ('0’,’ENTER NAME OF FILE YOU WANT DATA STORED IN,’ ) 
WRITE SC) 72) 
FORMAT (’ ',’USE A DOS NAME AS <c:xxxxxxx.yyy>’ ) 
READ (*, 72) ep UNeaie 
FORMAT (1414) 
OPEN (1, FILE=FLNAME , STATUS=’ NEW’ , FORM=’ FORMATTED’ ) 
DO 300 I=1,STEPS 
LENGTH = COUNT(T) -3 


IF (LENGTH .EQ. 9) FMT = “(ege2 
IF (LENGTH .EQ. 8) FMT = (hte oe 
IF (LENGTH .EQ. 7) FMT = “(BLO° 23 ees oe 
IF (LENGTH .EQ. 6) FMT = “(Gat 2 ee oe 
IF (LENGTH .EQ. 5) FMI = "“GGig2 = 2 
IF (LENGTH .EQ. 4) FMD =~ (et072) ee 
IF (LENGTH .LE. 3) FMT = “GolOe2 


WRITE (1,FMT) Y(I),RDDAT(I) 
CONTINUE 
REWIND 1 
DO 400 I=1,STEPS 
READ (1,410) VOUT 
FORMAT (11X,BNE9.3) 
DB(I) = 20 * LOG1O(VOUT/VIN) 
CONTINUE 
REWIND 1 
DO 420 I=1,STEPS 
WRITE (1,430) Y(I),DB(I) 
FORMAT (F10.2,',',E12.5) 
CONTINUE 
CLOSE (1) 
WRITE (*,500) FLNAME 
FORMAT ('0',1A16,'’ NOW CONTAINS YOUR BODE PLOT DATA.’) 
WRITE (*,501) 
FORMAT (’ ',’COLUMN 1 IS THE FREQUENCY DATA, COLUMN 2 IS THE’) 
WRITE (*,502) 
FORMAT (’ ','GAIN IN DECIBELS. THE INPUT VOLTAGE IS ASSUMED’ ) 
WRITE (*,503) 
FORMAT (’ ',’TO BE CONSTANT OVER THE FREQUENCIES SWEPT.’ ) 
RETURN 
END 
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